home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / cli / ksc_NoBorder.lha / NoBorder.asm next >
Encoding:
Assembly Source File  |  1998-04-27  |  1.7 KB  |  79 lines
  1. ; NoBorder 1.2 : make current shell window full screen (640x256 or bigger)
  2. ; by Kyzer/CSG
  3. ; $VER: NoBorder.asm 1.2 (24.04.98)
  4. ;
  5.     incdir    include:
  6.     include    lvo/exec_lib.i
  7.     include    lvo/dos_lib.i
  8.     include    lvo/intuition_lib.i
  9.     include    intuition/intuition.i
  10.     include    intuition/screens.i    
  11.  
  12.     move.l    4.w,a6
  13.     lea    intname(pc),a1
  14.     moveq    #32,d0
  15.     jsr    _LVOOpenLibrary(a6)
  16.     move.l    d0,a6
  17.     moveq    #0,d0
  18.     jsr    _LVOLockIBase(a6)
  19.     move.l    d0,d7
  20.  
  21.     move.l    ib_ActiveScreen(a6),a5
  22.     move.w    sc_Width(a5),d2
  23.     move.w    sc_Height(a5),d3
  24.  
  25.     move.l    ib_ActiveWindow(a6),a5
  26.     ori.l    #WFLG_BACKDROP!WFLG_BORDERLESS,wd_Flags(a5)
  27.     clr.l    wd_FirstGadget(a5)
  28.     clr.l    wd_BorderLeft(a5)    ; clr wd_Border(Left|Right|Top|Bottom)
  29.  
  30.     move.l    d7,a0
  31.     jsr    _LVOUnlockIBase(a6)
  32.  
  33.     move.w    wd_LeftEdge(a5),d0
  34.     move.w    wd_TopEdge(a5),d1
  35.     neg.w    d0
  36.     neg.w    d1
  37.     move.l    a5,a0
  38.     jsr    _LVOMoveWindow(a6)
  39.     move.w    d2,d0
  40.     move.w    d3,d1
  41.     move.l    a5,a0
  42.     jsr    _LVOWindowLimits(a6)
  43.     move.w    d2,d0
  44.     move.w    d3,d1
  45.     sub.w    wd_Width(a5),d0
  46.     sub.w    wd_Height(a5),d1
  47.     move.l    a5,a0
  48.     jsr    _LVOSizeWindow(a6)
  49.     move.l    a6,a1
  50.     move.l    4.w,a6
  51.     jsr    _LVOCloseLibrary(a6)
  52.  
  53.     lea    dosname(pc),a1
  54.     moveq    #32,d0
  55.     jsr    _LVOOpenLibrary(a6)
  56.     move.l    d0,a6
  57.     jsr    _LVOOutput(a6)
  58.     move.l    d0,d1
  59.     lea    reset(pc),a0
  60.     move.l    a0,d2
  61.     moveq.l    #6,d3
  62.     jsr    _LVOWrite(a6)
  63.     move.l    a6,a1
  64.     move.l    4.w,a6
  65.     jsr    _LVOCloseLibrary(a6)
  66.     moveq    #0,d0
  67.     rts
  68.  
  69. dosname    dc.b    'dos.library',0
  70. intname    dc.b    'intuition.library',0
  71. reset    dc.b    $1b,'c', $9b,'H', $9b,'J'
  72.  
  73. ; note: This is ONLY designed to work when a CON: shell windows is the
  74. ;    current window.! Don't run it on KingCon/RCON/ViNCEd or from
  75. ;    DOPUS / filemaster as a CRASH islikely. Its only real use is in
  76. ;     startup-sequences to make an 80x32 cli screen.
  77.  
  78. ;    Use it to replace the old BORDER command.
  79.